NewMacros 


Sub mach ( ) 


Makro erstellt am 22.05.03 von Juan Perez 


mach 


- 1 




um Giselas ursprunglichen Text mit dieser 
(ubersetzten) Version zu vergleichen 

Die Dateien wurden vorher geringfiigig angepafi.t. 


1 Dateien offnen und initialisieren 

t 

ChangeFileOpenDirectory "C: \windows\desktop\Gisela\ " 

1 neu.doc 

With Selection 
With . Find 


. ClearFormatting 

. Replacement . ClearFormatting 

.Text = ,,yv m- " 

. Replacement .Text = "#^m- " 

. Forward = True 

.Wrap = wdFindStop 

. Format = False 

.MatchCase = False 

. MatchWholeWord = False 

. MatchWildcards = False 

. MatchSoundsLike = False 

.MatchAllWordForms = False 

.Execute Replace : =wdRepl a ceAll 


1 Die Seiten la und lb sollen nicht einzeln behaldelt werden 

.GoTo What : =wdGoToPage, Which : =wdGoToNext , Name:="2" 
.MoveLeft Unit : =wdCharacter / Count :=1 
. TypeBackspace 

.GoTo What : =wdGoToPage, Which : =wdGoToNext , Name: ="3" 
-MoveLeft Unit : =wdCharacter , Count :=1 
. TypeBackspace 

. EndKey Unit : =wdStory 1 Seite 2 8 hat keine Seitenendmarke 

.TypeText Text:="#" 
.HomeKey Unit : =wdStory 
End With 

1 alt. doc 

Documents . Open FileName : ="alt . doc" , Conf irmConversions : =True, Readonly : = 

False, AddTo Re cent Files : =False, PasswordDocument : =" " , PasswordTemplat 
Revert : =False, WritePasswordDocument : =" " , WritePasswordTemplate : = 

Format : =wdOp en Format Auto 
With Selection 

. Find . Execute Replace : =wdReplaceAll 

.EndKey Unit : =wdStory 

.TypeText Text:="#" 

.HomeKey Unit : =wdStory 
End With 

1 vergl.doc 


End With 


Documents .Add DocumentType : =wdNewBlankDocument 
ActiveDocument . SaveAs FileName : ="vergl . doc" 


NewMacros - 2 

' eigentl . Schleife durch die einzelnen Seiten 


For seitnr = 1 To 28 

1 von alt. doc eine Seite kopieren 

Windows ( "alt . doc" ) .Activate 
With Selection 

.MoveEndUntil Cset :="#", Count : =wdForward 

.Copy 

.MoveRight Unit : =wdCharacter , Count : =3 
End With 

1 als alt. doc abspeichern 

Documents .Add DocumentType : =wdNewBlankDocument 
Selection. Paste 

ActiveDocument . SaveAs FileName : ="alt_Seite . doc" , FileFormat:= _ 

wd Format Document, LockComments : =False, Password :=" " , AddToRecentFiles : = _ 
True, WritePassword : =" ", ReadOnlyRe commended: =False, EmbedTrueTypeFonts : = 
False, SaveNativePictureFormat : =False, SaveFormsData : =False , _ 
SaveAsAOCELetter: =False 

ActiveWindow . Close ( wdSaveChanges ) 

' von neu. doc eine Seite kopieren 

Windows ("neu. doc") .Activate 
With Selection 

.MoveEndUntil Cset :="#", Count : =wdForward 

. Copy 

.MoveRight Unit : =wdCharacter , Count : =3 
End With 

1 in neuem Fenster den Vergleich durchfiihren, kopieren, 

Documents .Add DocumentType : =wdNewBlankDocument 
With Selection 
. Paste 

ActiveDocument . Compare Name : ="C : \windows\des ktop\gisela\alt_Seite . doc" 
.WholeStory 
. Copy ' 
End With 

ActiveWindow. Close ( wdDoNotSaveChanges ) 

1 und an vergl.doc anhangen 

Windows ("vergl.doc") .Activate 
With Selection 

. EndKey Uni t : =wdStory 

. Paste 

•InsertBreak Type : =wdPageBreak 
End With 

Next seitnr 


speichern und schlieften 


Selection . TypeBackspace 

Windows ("vergl.doc") .Close (wdSaveChanges) 
Windows ( "alt . doc" ) .Close (wdDoNotSaveChanges ) 
Windows ( "neu . doc" ) . Close (wdDoNotSaveChanges ) 


End Sub 


